SET QUOTED_IDENTIFIER ON
GO
SET ANSI_NULLS ON
GO
CREATE PROCEDURE [dbo].[SP_TCMOVI_CAJA_I04]
/*-------------------------------------------------------*/        
/*---Empresa              : OFISIS S.A.                --*/        
/*---Cliente              : CASSINELLI                 --*/        
/*---Sistema              : Tesoreria                  --*/        
/*---M¸dulo               : Empresa                    --*/        
/*---Programa             : Grabaci¸n Cabecera         --*/        
/*---                 Reposici©n a Caja          --*/        
/*---                       (Masivo)                   --*/        
/*---Script               : tcmovi_b.sql               --*/        
/*---Nombre SP            : SP_TCMOVI_CAJA_I04         --*/        
/*---Desarrollado por     : Javier Flores A.           --*/        
/*---Fecha Creaci¸n       : 14/06/1999                 --*/        
/*---Base Datos           : Microsoft Sql Server       --*/        
/*---Versi¸n              : 7.0                        --*/        
/*---Invoca a SP          :                            --*/        
/*-------------------------------------------------------*/        
/*-------------------------------------------------------*/        
/*---Modificado 1 por     : Maribel Julca Rodriguez      --*/        
/*---Fecha Modificaci©n   : 20/04/2005                   --*/         
/*---Detalle Modificaci©n : ingreso de los campos CO_USUA_CREA Y CO_USUA_MODI--*/        
/*-------------------------------------------------------*/        
/*-------------------------------------------------------*/        
/*---Modificado 2 por     : Carlos Marequez Escobar      --*/        
/*---Fecha Modificaci©n   : 04/07/2005                   --*/         
/*---Detalle Modificaci©n : Caso Cuentas Manejo Contables--*/        
/*-------------------------------------------------------*/        
/*-------------------------------------------------------*/        
/*---Modificado 3 por     : Manuel de la Cruz           --*/        
/*---Fecha Modificaci©n   : 08/09/2010                  --*/         
/*---Detalle Modificaci©n : se corrígió caso de ingreso--*/
/*---a caja por reposición                             --*/
/*-------------------------------------------------------*/
/*-------------------------------------------------------*/
/*---Comentarios                                       --*/
/*---                                                  --*/        
/*---                                                  --*/        
/*-------------------------------------------------------*/        
/*-------------------------------------------------------*/        
/*---Drop Proc SP_TCMOVI_CAJA_I04                      --*/        
/*---Grant all on SP_TCMOVI_CAJA_I04 to public         --*/         
/*---SP_TCMOVI_CAJA_I04                                --*/        
/*-------------------------------------------------------*/        
 @ISCO_EMPR   TD_VC_002,         
 @ISCO_USUA_MODI  TD_VC_008_USUA,        
 @ISCO_BANC   TD_VC_003,        
 @ISNU_CNTA_BANC  TD_VC_020,        
 @ISAA_BNCO   TD_VC_004,         
 @ISMM_BNCO   TD_VC_002,         
 @ISTI_MOVI_BANC  TD_VC_001,          
 @ISNU_COMP_BANC  TD_VC_008,         
 @INNU_SECU   TD_IN_001,        
 @IDFE_OPER   TD_DT_001,         
 @ISCO_MONE   TD_VC_003,         
 @INIM_MOVI   TD_NU_016_004,         
 @INIM_CONV   TD_NU_016_004,        
 @ISCO_EMPR_DEST  TD_VC_002,        
 @ISCO_CAJA_DEST  TD_VC_008,         
 @ISNU_COMP_DEST  TD_VC_008,        
 @ISCO_TIPO_OPER  TD_VC_003,         
 @ISDE_OBSE   TD_VC_100,        
 @ISCO_UNID_CNTB  TD_VC_003,         
 @INFA_TIPO_CAMB  TD_NU_015_006,         
 @ISTI_CORR_INEG  TD_VC_001,         
 @ISCO_SUBR   TD_VC_003,        
 @ISTI_MOVI_OPER        TD_VC_001,         
 @ISCO_CNTA_EMPR        TD_VC_020,        
 @ISTI_ENTI  TD_VC_001,         
 @ISCO_ENTI  TD_VC_020,         
 @ISTI_DOCU  TD_VC_003,         
 @ISNU_DOCU  TD_VC_020,         
 @ISCO_ORDE_SERV TD_VC_020,      
 @ISCO_UNID_CNT2  TD_VC_003       
        
/*        
 @ISTI_MOVI   TD_VC_001,         
 @ISCO_CNTA_EMPR TD_VC_020,         
 @ISTI_ENTI  TD_VC_001,         
 @ISCO_ENTI  TD_VC_020,         
 @ISCO_ORDE_SERV TD_VC_020        
*/      
 As      
DECLARE            
    @VNCO_NUEV_NUME TD_IN_001,  @VSCO_NUEV_CHAR TD_VC_008,        
    @VSAA_CAJA_DEST TD_VC_004,  @VSMM_CAJA_DEST TD_VC_002,          
    @VNNU_REGI      TD_IN_001,  @VNNU_SECU TD_IN_001, @VNIM_CONV TD_NU_016_004,        
    @VSCO_MONE      TD_VC_003,  @VNIM_TOTA TD_NU_016_004, @VNIM_MOVI_ANTE  TD_NU_016_004,        
    @ISNU_COMP_CAJA TD_VC_008, @VNUL_CORR_INGR TD_IN_001, @VNUL_CORR_INEG TD_IN_001,      
	@VSDE_ERRO  TD_VC_100      
       
        
 BEGIN Tran SP_TCMOVI_CAJA_I04        
        
 Select @VSAA_CAJA_DEST = Convert(Char(4),Datepart(YY, @IDFE_OPER))        
 Select @VSMM_CAJA_DEST = Convert(Char(2),Datepart(MM, @IDFE_OPER))        
       
       
       
 If Datalength (rtrim(@VSMM_CAJA_DEST)) = 1        
  Select @VSMM_CAJA_DEST = '0' + @VSMM_CAJA_DEST         
       
 If @INNU_SECU IS NULL        
 Begin        
  Select @VNNU_SECU = NU_SECU        
  From   TDMOVI_RECA      
  Where  CO_EMPR = @ISCO_EMPR       
        and    CO_UNID_CONC = @ISCO_UNID_CNTB      
  and    CO_BANC = @ISCO_BANC        
  and    NU_CNTA_BANC = @ISNU_CNTA_BANC        
  and    AA_BNCO = @ISAA_BNCO        
  and    MM_BNCO = @ISMM_BNCO        
  and    TI_MOVI_BANC = @ISTI_MOVI_BANC        
  and    NU_COMP_BANC = @ISNU_COMP_BANC        
       
  If @VNNU_SECU > 0        
   Select @VNNU_SECU = @VNNU_SECU + 1        
  Else        
   Select @VNNU_SECU = 1          
       
  IF RTRIM(ISNULL(@ISCO_CAJA_DEST, '')) != ''        
  BEGIN        
   Select @VSCO_NUEV_CHAR = MAX(NU_COMP_CAJA)         
   From   TCMOVI_CAJA        
   Where  CO_EMPR = @ISCO_EMPR_DEST        
   And    CO_CAJA = @ISCO_CAJA_DEST        
   And    AA_CAJA = @VSAA_CAJA_DEST        
   And    MM_CAJA = @VSMM_CAJA_DEST         
   And    TI_MOVI = 'I'          
   And    NU_COMP_CAJA LIKE '000%'        
  END        



       
  If @VSCO_NUEV_CHAR is not null         
   Select @VNCO_NUEV_NUME = Convert(Int , @VSCO_NUEV_CHAR) + 1        
  Else        
   Select @VNCO_NUEV_NUME = 1        
       
  Select @VSCO_NUEV_CHAR = Replicate('0', 8 - Len(Convert(Varchar(8), @VNCO_NUEV_NUME))) + Convert(Varchar(8), @VNCO_NUEV_NUME)        
              
       
  IF RTRIM(ISNULL(@ISCO_CAJA_DEST, '')) != ''
     Select @ISNU_COMP_CAJA = @VSCO_NUEV_CHAR     
  ELSE    
    Begin    
     Select @ISNU_COMP_CAJA = NULL    
     Select @ISCO_CAJA_DEST = ''    
    End

       
  INSERT INTO TDMOVI_RECA ( CO_EMPR, CO_BANC, NU_CNTA_BANC, TI_MOVI_BANC, AA_BNCO, MM_BNCO,        
  NU_COMP_BANC, NU_SECU, CO_EMPR_DEST, CO_CAJA_DEST, AA_CAJA_DEST, MM_CAJA_DEST, TI_MOVI_DEST,         
  NU_COMP_DEST, FE_OPER, CO_TIPO_OPER, IM_MOVI, IM_CONV, FA_TIPO_CAMB, CO_UNID_CONC,         
  DE_OBSE, CO_USUA_CREA, FE_USUA_CREA,CO_USUA_MODI, FE_USUA_MODI, CO_SUBR, TI_MOVI, CO_CNTA_EMPR, TI_ENTI, CO_ENTI, TI_DOCU, NU_DOCU, CO_ORDE_SERV, CO_UNID_DEST )        
        
  Values ( @ISCO_EMPR, @ISCO_BANC, @ISNU_CNTA_BANC, @ISTI_MOVI_BANC, @ISAA_BNCO, @ISMM_BNCO,        
  @ISNU_COMP_BANC, @VNNU_SECU, @ISCO_EMPR_DEST, @ISCO_CAJA_DEST, @VSAA_CAJA_DEST, @VSMM_CAJA_DEST, 'I',         
  @ISNU_COMP_CAJA, @IDFE_OPER, @ISCO_TIPO_OPER, @INIM_MOVI, @INIM_CONV, @INFA_TIPO_CAMB, @ISCO_UNID_CNTB, @ISDE_OBSE,         
  @ISCO_USUA_MODI, GETDATE(),@ISCO_USUA_MODI, GETDATE(), @ISCO_SUBR, @ISTI_MOVI_OPER, @ISCO_CNTA_EMPR, @ISTI_ENTI, @ISCO_ENTI, @ISTI_DOCU, @ISNU_DOCU, @ISCO_ORDE_SERV, @ISCO_UNID_CNT2)         
       
  If @@error <> 0        
  Begin      
   Select @VSDE_ERRO = 'Insertando Detalle Tabla Reposicion a Caja (TDMOVI_RECA)'      
   RAISERROR 50000 @VSDE_ERRO      
   Rollback Tran SP_TCMOVI_CAJA_I04        
   Return        
  End        
       
       
  IF RTRIM(ISNULL(@ISCO_CAJA_DEST, '')) != ''        
  BEGIN        
        
   INSERT INTO TCMOVI_CAJA (CO_EMPR, CO_CAJA, AA_CAJA, MM_CAJA, TI_MOVI, NU_COMP_CAJA,         
   FE_OPER, CO_TIPO_OPER, FA_TIPO_CAMB, IM_MOVI,  DE_OBSE, ST_CONT, TI_SITU, CO_UNID_CONC,        
   CO_SUBR, CO_USUA_CREA, FE_USUA_CREA,CO_USUA_MODI, FE_USUA_MODI)        
         
   Values ( @ISCO_EMPR_DEST, @ISCO_CAJA_DEST, @VSAA_CAJA_DEST, @VSMM_CAJA_DEST, 'I',         
   @ISNU_COMP_CAJA, @IDFE_OPER, @ISCO_TIPO_OPER, @INFA_TIPO_CAMB,         
   @INIM_CONV, @ISDE_OBSE, 'N',  'ACT', @ISCO_UNID_CNT2, @ISCO_SUBR, @ISCO_USUA_MODI, GETDATE(),@ISCO_USUA_MODI, GETDATE())        
         
         
   If @@error <> 0        
   Begin        
    Select @VSDE_ERRO = 'Insertando Cabecera Tabla Movs a Caja (TCMOVI_CAJA)'      
    RAISERROR 50000 @VSDE_ERRO      
    Rollback Tran SP_TCMOVI_CAJA_I04          
    Return        
   End          
       
       
   Select  @VNUL_CORR_INGR = CONVERT (int, @ISNU_COMP_CAJA )        
  Select  @VNUL_CORR_INEG = CONVERT (int, @ISNU_COMP_CAJA )        
   Select @VNIM_CONV = 0        
       
  End        
  Else        
  Begin        
   Select  @VNIM_CONV = Isnull(IM_CONV, 0)                  
   From   TDMOVI_RECA      
   WHERE  CO_EMPR = @ISCO_EMPR         
   and    CO_UNID_CONC = @ISCO_UNID_CNTB      
   and    CO_BANC = @ISCO_BANC        
   and    NU_CNTA_BANC = @ISNU_CNTA_BANC        
   and    AA_BNCO = @ISAA_BNCO        
   and    MM_BNCO = @ISMM_BNCO        
   and    TI_MOVI_BANC = @ISTI_MOVI_BANC        
   and    NU_COMP_BANC = @ISNU_COMP_BANC        
   And    NU_SECU =  @INNU_SECU        
        
   Update TDMOVI_RECA        
   Set    CO_TIPO_OPER = @ISCO_TIPO_OPER,        
   CO_SUBR = @ISCO_SUBR,        
   FA_TIPO_CAMB = @INFA_TIPO_CAMB,        
   IM_MOVI = @INIM_MOVI,        
   IM_CONV = @INIM_CONV,        
   DE_OBSE = @ISDE_OBSE,        
            CO_UNID_DEST = @ISCO_UNID_CNT2,      
   /*TI_MOVI =  @ISTI_MOVI,         
   CO_CNTA_EMPR = @ISCO_CNTA_EMPR, */        
   TI_ENTI = @ISTI_ENTI,        
   CO_ENTI = @ISCO_ENTI,        
   TI_DOCU = @ISTI_DOCU,        
   NU_DOCU = @ISNU_DOCU,        
   CO_ORDE_SERV = @ISCO_ORDE_SERV,        
   CO_USUA_MODI = @ISCO_USUA_MODI,        
   FE_USUA_MODI = GETDATE()        
   Where  CO_EMPR = @ISCO_EMPR        
   And    CO_UNID_CONC = @ISCO_UNID_CNTB      
   And    CO_BANC = @ISCO_BANC        
   And    NU_CNTA_BANC = @ISNU_CNTA_BANC        
   And    AA_BNCO = @ISAA_BNCO        
   And    MM_BNCO = @ISMM_BNCO        
   And    TI_MOVI_BANC = @ISTI_MOVI_BANC        
   And    NU_COMP_BANC = @ISNU_COMP_BANC        
   And    NU_SECU = @INNU_SECU        
        
   If @@error <> 0        
   Begin        
    Select @VSDE_ERRO = 'Actualizando Detalle Tabla Reposicion a Caja (TDMOVI_RECA)'      
    RAISERROR 50000 @VSDE_ERRO      
    Rollback Tran SP_TCMOVI_CAJA_I04          
    Return        
   End        
       
   Update TCMOVI_CAJA        
   Set CO_TIPO_OPER = @ISCO_TIPO_OPER,        
   CO_SUBR = @ISCO_SUBR,        
   CO_UNID_CONC = @ISCO_UNID_CNT2,        
   FA_TIPO_CAMB = @INFA_TIPO_CAMB,        
   DE_OBSE = @ISDE_OBSE,        
   IM_MOVI = @INIM_CONV,        
   CO_USUA_MODI = @ISCO_USUA_MODI,        
   FE_USUA_MODI = GETDATE()        
   Where  CO_EMPR = @ISCO_EMPR_DEST         
   And    CO_CAJA = @ISCO_CAJA_DEST        
   And    AA_CAJA = @VSAA_CAJA_DEST        
   And    MM_CAJA = @VSMM_CAJA_DEST        
   And    TI_MOVI = 'I'        
   And    NU_COMP_CAJA = @ISNU_COMP_DEST        
       
   If @@error <> 0        
   Begin        
    Select @VSDE_ERRO = 'Actualizando Cabecera Tabla Movs a Caja (TCMOVI_CAJA)'      
    RAISERROR 50000 @VSDE_ERRO      
    Rollback Tran SP_TCMOVI_CAJA_I04          
    Return        
   End               
       
 END --IF RTRIM(ISNULL(@ISCO_CAJA_DEST, '')) != '' 
       
       
 Select @VNIM_MOVI_ANTE  = Isnull(IM_MOVI,0)         
 FROM   TCMOVI_BANC        
 WHERE  CO_EMPR = @ISCO_EMPR         
    and    CO_UNID_CONC = @ISCO_UNID_CNTB      
 and    CO_BANC = @ISCO_BANC        
 and    NU_CNTA_BANC = @ISNU_CNTA_BANC        
 and    AA_BNCO = @ISAA_BNCO        
 and    MM_BNCO = @ISMM_BNCO        
 and    TI_MOVI_BANC = @ISTI_MOVI_BANC        
 and    NU_COMP_BANC = @ISNU_COMP_BANC        
       
 --Select @VNIM_TOTA = Isnull(Sum(Isnull(IM_MOVI,0)),0)        
 Select @VNIM_TOTA = Isnull(Sum(Isnull( Case When TI_MOVI = 'C' Then IM_MOVI         
 When TI_MOVI = 'A' Then IM_MOVI*-1        
 Else IM_MOVI End, 0)),0)        
 From TDMOVI_RECA        
 WHERE  CO_EMPR = @ISCO_EMPR         
    and    CO_UNID_CONC = @ISCO_UNID_CNTB      
 and    CO_BANC = @ISCO_BANC        
 and    NU_CNTA_BANC = @ISNU_CNTA_BANC         and    AA_BNCO = @ISAA_BNCO        
 and    MM_BNCO = @ISMM_BNCO        
 and    TI_MOVI_BANC = @ISTI_MOVI_BANC        
 and    NU_COMP_BANC = @ISNU_COMP_BANC        
       

  END --If @INNU_SECU IS NULL    

ELSE  
 
  BEGIN

 /** Actualiza los saldos en la tabla de meses  **/        
       
 IF @ISCO_CAJA_DEST IS NOT NULL AND LEN(LTRIM(RTRIM(@ISCO_CAJA_DEST))) > 0        
 Begin        
       
  Update TDMOVI_RECA        
  Set    CO_TIPO_OPER = @ISCO_TIPO_OPER,        
  CO_SUBR = @ISCO_SUBR,        
  FA_TIPO_CAMB = @INFA_TIPO_CAMB,        
  IM_MOVI =  @INIM_MOVI,        
  IM_CONV = @INIM_CONV,        
  DE_OBSE = @ISDE_OBSE,        
        CO_UNID_DEST = @ISCO_UNID_CNT2,      
  /*TI_MOVI =  @ISTI_MOVI,         
  CO_CNTA_EMPR = @ISCO_CNTA_EMPR,         
  TI_ENTI = @ISTI_ENTI,         
  CO_ENTI = @ISCO_ENTI,         
  CO_ORDE_SERV = @ISCO_ORDE_SERV,*/        
  TI_ENTI = @ISTI_ENTI,        
  CO_ENTI = @ISCO_ENTI,        
  TI_DOCU = @ISTI_DOCU,        
  NU_DOCU = @ISNU_DOCU,        
  CO_ORDE_SERV = @ISCO_ORDE_SERV,        
  CO_USUA_MODI = @ISCO_USUA_MODI,        
  FE_USUA_MODI = GETDATE()        
  Where  CO_EMPR = @ISCO_EMPR        
        and    CO_UNID_CONC = @ISCO_UNID_CNTB      
  And    CO_BANC = @ISCO_BANC        
  And    NU_CNTA_BANC = @ISNU_CNTA_BANC        
  And    AA_BNCO = @ISAA_BNCO        
  And   MM_BNCO = @ISMM_BNCO        
  And    TI_MOVI_BANC = @ISTI_MOVI_BANC        
  And    NU_COMP_BANC = @ISNU_COMP_BANC        
  And    NU_SECU =  @INNU_SECU        
  If @@error <> 0        
  Begin        
   Select @VSDE_ERRO = 'Actualizando Detalle Tabla Reposicion a Caja (TDMOVI_RECA).'      
   RAISERROR 50000 @VSDE_ERRO      
   Rollback Tran SP_TCMOVI_CAJA_I04          
   Return        
  End 


		Update TCMOVI_CAJA    
		Set    CO_TIPO_OPER = @ISCO_TIPO_OPER,    
		CO_SUBR = @ISCO_SUBR,    
		CO_UNID_CONC = @ISCO_UNID_CNTB,    
		FA_TIPO_CAMB = @INFA_TIPO_CAMB,    
		DE_OBSE = @ISDE_OBSE,    
		IM_MOVI = @INIM_CONV,    
		CO_USUA_MODI = @ISCO_USUA_MODI,    
		FE_USUA_MODI = GETDATE()    
		Where  CO_EMPR = @ISCO_EMPR_DEST     
		And    CO_CAJA = @ISCO_CAJA_DEST    
		And    AA_CAJA = @VSAA_CAJA_DEST    
		And    MM_CAJA = @VSMM_CAJA_DEST    
		And    TI_MOVI = 'I'    
		And    NU_COMP_CAJA = @ISNU_COMP_DEST    
   
		If @@error <> 0    
		  Begin    
			Select @VSDE_ERRO = 'Actualizando Cabecera Tabla Movs a Caja (TCMOVI_CAJA)'  
			RAISERROR 50000 @VSDE_ERRO  
			Rollback Tran SP_TCMOVI_CAJA_I04      
		    Return    
		  End    
       
 End        
 Else        
 Begin        
       
  Update TDMOVI_RECA        
  Set    CO_TIPO_OPER = @ISCO_TIPO_OPER,        
  CO_SUBR = @ISCO_SUBR,        
  FA_TIPO_CAMB = @INFA_TIPO_CAMB,        
  IM_MOVI = @INIM_MOVI,        
  IM_CONV = @INIM_CONV,        
  DE_OBSE = @ISDE_OBSE,        
        CO_UNID_DEST = @ISCO_UNID_CNT2,      
  /*TI_MOVI =  @ISTI_MOVI,         
  CO_CNTA_EMPR = @ISCO_CNTA_EMPR, */        
  TI_ENTI = @ISTI_ENTI,        
  CO_ENTI = @ISCO_ENTI,        
  TI_DOCU = @ISTI_DOCU,        
  NU_DOCU = @ISNU_DOCU,        
  CO_ORDE_SERV = @ISCO_ORDE_SERV,        
  CO_USUA_MODI = @ISCO_USUA_MODI,        
  FE_USUA_MODI = GETDATE()        
  Where  CO_EMPR = @ISCO_EMPR        
        and    CO_UNID_CONC = @ISCO_UNID_CNTB      
  And    CO_BANC = @ISCO_BANC        
  And    NU_CNTA_BANC = @ISNU_CNTA_BANC        
  And    AA_BNCO = @ISAA_BNCO        
  And    MM_BNCO = @ISMM_BNCO        
  And    TI_MOVI_BANC = @ISTI_MOVI_BANC        
  And    NU_COMP_BANC = @ISNU_COMP_BANC        
  And    NU_SECU =  @INNU_SECU        
  If @@error <> 0        
  Begin        
   Select @VSDE_ERRO = 'Actualizando Detalle Tabla Reposicion a Caja (TDMOVI_RECA)..'      
   RAISERROR 50000 @VSDE_ERRO      
   Rollback Tran SP_TCMOVI_CAJA_I04          
   Return        
  End        
 End  --IF @ISCO_CAJA_DEST IS NOT NULL AND LEN(LTRIM(RTRIM(@ISCO_CAJA_DEST))) > 0
 
End --If @INNU_SECU IS NULL         
       
 Select @VNIM_TOTA = Isnull(Sum(Isnull( Case When TI_MOVI = 'C' Then IM_MOVI         
 When TI_MOVI = 'A' Then IM_MOVI*-1        
 Else IM_MOVI End, 0)),0)        
 From TDMOVI_RECA        
 WHERE  CO_EMPR = @ISCO_EMPR         
    and    CO_UNID_CONC = @ISCO_UNID_CNTB      
 and    CO_BANC = @ISCO_BANC        
 and    NU_CNTA_BANC = @ISNU_CNTA_BANC        
 and    AA_BNCO = @ISAA_BNCO        
 and    MM_BNCO = @ISMM_BNCO        
 and    TI_MOVI_BANC = @ISTI_MOVI_BANC        
 and    NU_COMP_BANC = @ISNU_COMP_BANC        
       
       
 Update TCMOVI_BANC        
 Set IM_MOVI = Round(@VNIM_TOTA,2),        
 CO_USUA_MODI = @ISCO_USUA_MODI, FE_USUA_MODI = getdate()                 
 Where CO_EMPR = @ISCO_EMPR         
    And   CO_UNID_CONC = @ISCO_UNID_CNTB      
 And   CO_BANC = @ISCO_BANC        
 And   NU_CNTA_BANC = @ISNU_CNTA_BANC           
 And   AA_BNCO = @ISAA_BNCO        
 And   MM_BNCO = @ISMM_BNCO        
 And   TI_MOVI_BANC = @ISTI_MOVI_BANC        
 And   NU_COMP_BANC = @ISNU_COMP_BANC        
       
 If @@error <> 0        
 Begin        
  Select @VSDE_ERRO = 'Actualizando Cabecera Tabla Movs a Caja (TCMOVI_CAJA).'      
  RAISERROR 50000 @VSDE_ERRO      
  Rollback Tran SP_TCMOVI_CAJA_I04          
  Return        
 End          
        
 COMMIT Tran SP_TCMOVI_CAJA_I04      
        
/*------------------------------ Fin ------------------------------*/

GO
